Function GetFullName()
Dim WSHnet, objUser, UserName, UserDomain
Set WSHnet = CreateObject(“WScript.Network”)
UserName = WSHnet.UserName
UserDomain = WSHnet.UserDomain
Set objUser = GetObject(“WinNT://” & UserDomain & “/” & UserName & “,user”)
GetFullName = objUser.FullName
End Function
===================================
Dim mySQL As String
Dim myUserName, myPC
Get UserID logged in
myUserName = Environ$(“username”)
Get PC name for User logged in
myPC = Environ$(“computername”)
The other physical causes include high BP, diabetes, excessive consumption of alcohol, smoking and tobacco use. cialis pfizer achat http://greyandgrey.com/spanish/compensacion-para-los-trabajadores/ Most schools Continue cialis pharmacy prices enable you to pause the program and are available back thereto whenever you want. This indicates the presence of any underlying physical buying sildenafil disease that requires immediate treatment. The greater range of motion that cialis free shipping a longer or deeper massage would give could cause the dysfunction.
